Option Explicit
'зǼҲ
Sub L_Sample017()
    UserForm1.Show vbModeless
    UserForm1.UfStr = "ѥ~ӨӪ޼"
End Sub

'ۭqҲ
Private myStr As String
Public Property Get UfStr() As String
    UfStr = myStr
End Property

Public Property Let UfStr(myTmp As String)
    myStr = myTmp
End Property

Private Sub CommandButton1_Click()
    MsgBox myStr
End Sub

